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EDTSSCRREV - reverse video screen mode 16-Sep-1984 VAX-11 Bliss-32 V4.0-7 Page 1 
er eeen hae 9:5e 88 Nee WAASTERcCEOT sacscrrev.eLts1 om cr} 

3 1 MG ests seen a reverse video screen mode' re 6 a 
$ everse video screen mo 
: § gDEWT = 'v04-000' ! File: SCRREV.BLI Edit: J8S1003 
3 5 BEGIN 
: ? } ipetaaamapen-sanenpetesabibmnniaay ses a ptt mn tomes egpi 
3 'e * 
3 4 1 !* COPYRIGHT (c) 1978 1980. 1982, 1984 B * 
co) 2 1 i® DIGITAL EQUIPMENT CORPORA TION, MAYHARD. MASSACHUSETTS. * 
3 13 ! : it ALL RIGHTS RESERVED. * 
3 ; * 
3 ig ig 1 te rs SOF TWARE ie FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 
; 1% 14 1! Y IN wei ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. 7p 18 1 !e ON ELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 1 18 1 !* COPIES THEREOF oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 313 ' it TRANSFERRED. * 
; ; * 
s 0 8 0 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 1 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ § ' i? CORPORATION. : 
; 4 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; ? 4 5 : ? SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; : ® 
; $$ 00 8 1 ie * 
$ $8 3 : Slee lla 
: 30 0030 1 
3 1 0031 1 !+4¢ 
: § tf) : FACILITY: EDT -- The DEC Standard Editor 
: 3% $0 1 | ABSTRACT: 
$ 5 Be 5 1 
3 $ ; § : This module makes sure the screen is in reverse video. 
; : 0038 : ENVIRONMENT: Runs at any access mode - AST reentrant 
; re 0940 ' AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
; 4¢ O4e 1 | MODIFIED BY: 
; 64 043 1: 
; «644 044 1 ! 1-001 - Original. DUS et ts EF This module was created by 
s 45 45 1! extracti ng the routine 4! TS$8c gfEVit. from module SCREEN. 
; 64 § 1/14 ~008 - Regularize headers. Rar- 
: 14 ot ! it 1 - Improve the eee "a the (ietine. JBS 17-Jun-1983 
: 9 1 
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Declaration 14-Sep-1984 12: 


1 1 SSBTTL ‘Declarations’ 
§ TABLE OF CONTENTS: 
4 i 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSC_REVID : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
' 


MACROS: 
i NONE 
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71 4¢ i 
t 6 : i EQUATED SYMBOLS: 
7% 5 : 
75 $ BIND 
g 4 REV_VIDEO = UPLIT (XSTRING (XZCHAR (ASC_K_ESC), 'C7m')); 
78 49 1 LITERAL 
4 30 REV_VIDEO_LEN = 4; 
1 5 ' 
i 38 i OWN STORAGE: 
654 1! 
4 1 NONE 
$31 EXTERNAL REFERENCES: 
8 0659 i In the routine 
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EDTSSCRREV EDTSSCRREV = reverse video screen mode -$ep-1984 01:42: VAX-11 ss-32 V 
704-000 EDTSase REVI = reverse video the screen 16: sep-1964 9:32:99 DISKS$V nen STER: ceo i SRCISCRREV. BLI;1 ase (33 
ZSBTTL ‘EDTSSSC_REVID = reverse video the screen’ 
GLOBAL ROUTINE EDTSSSC_REVID ! Make sure the screen is in reverse video 
: NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 


AO 


This routine makes sure the screen is in reverse video mode. Check 
the flag, and if it is not, output the sequence to set reverse video 
and set the reverse flag. 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 
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EDT$$G_REVID 
EDTS$$G-TI_TYP 
i 
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on 


on 
SNS NNO OO 
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IMPLICIT OUTPUTS: 
EDTSS$G_REVID 
ROUTINE VALUE: 


ARM AALALALAANES SRE LLLP Pe LLeeLPeeeeLPeeLPerer 


NONE 
SIDE EFFECTS: 
0690 
24 NONE 
b698 
0694 
95 
39 en ROUTINE 
4 EDTSSFMT_LIT; 
0700 a, 
reat $G_REVID ! is reverse video on? 
EDTS$$G_TI_TYP; i Terminal type. 


MEW — 


IF (,EDTS$G_TI_TYP EQL TERM_VT100) 
THEN 


SSNS NO 


st tt ee 


IF (.EDTS$G_REVID EQL 0) 
THEN 


FBTBREMT tHE og he VIDEO, REV_VIDEO_LEN); 


PEW BSSSLS MH USO NOUS UN OODNAME WH OSR IEE AVI OSIRIS 
otatatatatatatates 
CONVO EUS 
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; BEGIN 
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END; ! of routine EDTS$SC_REV 
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EDTSSCRREV DISSCRREV = reverse video screen mode e VAX-11 Bliss-32 V4.0-7 Page 4 
104-000 EDTSase REVID - reverse video the screen 12 hs 1384 9}: 36: 98 DISKSVMSMASTER:CEDT. she SCRREV.BLI;1 te (3) 
© -TITLE EDTSSCRREV EDTSSCRREV - reverse video ‘screen mo 


- IDENT \v04-000\ 
«PSECT LEDTSCODE,NOWRT, SHR, PIC,2 


6D 37 5B 1B 00000 P.AAA: .ASCII <27>\C7m\ : 
REV_VIDEO= P.A 
sEXTRN EDTSSEMT LIT EDT$$G_REVID 
-EXTRN EDT$$G_TI_TYP 
0004 000 -ENTRY EDTS$SSC REVID, aseve R2 3 0662 
52 90000000 0 i 000 MOVAB EDT$$_REVI : 
02 000000006 D 6 0 CMPL EDTS$G-TI_ 1¥6," + 0704 
1 18 BNEQ 1$ F 
D5 0001 TSTL  EDT$$G_REVID + 0707 
F 12 00014 BNEG ~=«*1$ : 
4 DD 00016 PUSHL #4 + 0710 
E1 AF 9F 00018 PUSHAB REV_VIDEQ : 
000000006 00 02 FB 0001 CALLS #2, EDTSSFMT_LIT ; 
62 01 dO 0008 MOVL #1, EDTS$$G_REVID : 0711 
04 00025 1$: RET + 0714 


3; Routine Size: 38 bytes, Routine Base: _EDTSCODE + 0004 


0715 #1 
0716 1 !<BLF/PAGE> 


e REV DISSCRREV = reverse video screen mode 16-50 -1984 01:42: VAX-11 Bliss-32 V Pa 
She ts EDTSESe REVID - reverse video the screen Hat 7 93:52:09 DISKSVMSMASTER: tt i sRCISCRREV. BLI;1 
; (14 717 1 END ! TSSCRR 

133 a } of module EDTSSCRREV 

3; 159 719 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

; _EDTSCODE 42 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eqeasese Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time e 
$255$DUA28: CEDT.SRCIJEDT.L32;1 377 2 4 00:00.2 
Stitt EDT. SRCIPSECTS.L32;1 2 1 36 : 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1S$:SCRREV/OBJ=0BJ$:SCRREV MSRC$:SCRREV.BLI/UPDATE=(ENH$: SCRREV) 


; Size: 38 gde* 4 data bytes 
Run Time oa 3 
Slessed tee: 11.2 


Lines/CPU Min: 466 
Lexemes/CPU-Min: 1244 
Memor Y Used: 55 pages 
Compilation Complete 
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